home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / dora / doraschg.plp < prev    next >
Text File  |  1993-11-30  |  2KB  |  63 lines
  1. /************************************************************************
  2. *    設定情報の変更処理                        *
  3. *************************************************************************/
  4. /*    ファイルからユーザー設定情報を読み込む    */
  5. %LOADset{
  6.     var    newfile    [64];
  7.     SNDMSG({erande_f.snd});
  8.     footnote({ユーザー設定情報を読み込むファイルを指定して下さい});
  9.     newfile:=@filesel({USR});
  10.     case    (newfile<>{},{Yes},{
  11.         %newdir    @getcdir;
  12.         case    (@nochar(newdir)==3,
  13.             {Yes},{newfile:=newdir|newfile},
  14.             {No},{newfile:=newdir|{\}|newfile});
  15.         case    (@filechk(newfile),{Yes},{
  16.             %ExcPilot {#}|newfile;ExcPilot;init;
  17.             SETFILE1:=@tail(newfile,{\});
  18.             })});
  19.     setcdir(CDIR);
  20.     };
  21. /*    ファイルからＲＴＢＢＳ－ＮＥＴ設定情報を読み込む    */
  22. %LOADtg{var    newfile    [64];SNDMSG({erande_f.snd});
  23.     footnote({ＲＴＢＢＳ－ＮＥＴでの処理の設定を読み込むファイルを}|
  24.         {指定して下さい});
  25.     newfile:=@filesel({TG});
  26.     case    (newfile<>{},{Yes},{
  27.         %newdir    @getcdir;
  28.         case    (@nochar(newdir)==3,
  29.             {Yes},{newfile:=newdir|newfile},
  30.             {No},{newfile:=newdir|{\}|newfile});
  31.         case    (@filechk(newfile),{Yes},{
  32.             %ExcPilot {#}|newfile;ExcPilot;
  33.             setcdir(CDIR);SETFILE2:=@tail(newfile,{\});
  34.             })}
  35.         );
  36.     setcdir(CDIR);
  37.     };
  38. /*    設定を元に戻す    */
  39. %CANCEL    {
  40.     setcdir(CDIR);
  41.     #DORASET.SET;
  42.     #DORATGK.SET;
  43.     init;
  44.     setcdir(CDIR);
  45.     SETFILE1:={標準設定};
  46.     SETFILE2:={標準設定}};
  47. %SETCHNG{loop    ({SNDMSG({erande_f.snd});
  48.         footnote({現在のﾕｰｻﾞｰ設定ﾌｧｲﾙ=}|SETFILE1|
  49.                 { NETでの処理設定ﾌｧｲﾙ=}|SETFILE2);
  50.         select    ({どの設定情報をファイルから読み込みますか？},
  51.             Wtime4,{im({No})},
  52.             {    ユーザー      設定情報  },{LOADset;im({Yes})},
  53.             {    ネットでの処理設定情報  },{LOADtg;im({Yes})},
  54.             {    両方の        設定情報  },
  55.             {LOADset;LOADtg;im({Yes})},
  56.             {    両方の設定を元に戻す    },{CANCEL;im({Yes})},
  57.             {    終了                    },{im({No})}
  58.             );
  59.         });
  60.     display({\n\n設定ファイルの読み込みを終了しました\n});
  61.     display(NET|{－ネットでの処理は\n}|TGK|{です。});
  62.     };
  63. SETFILE1:={一時設定};SETCHNG;